home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_140_Comic Title < prev    next >
Text File  |  1998-02-04  |  13KB  |  217 lines
  1. ItemType: WIND
  2. Rect: 299,217,724,413
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Comic Title
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global oldAbbreviation, oldName, selectedTitle, selectedCardName, theCreatedTitle¬Global cMaxCardNameLength, titleList¬Global gComicTitleWindowID¬global gWindowPositions, serialNum, gPublisherList¬global gDefaultPublisher, gDefaultCopyright, gDefaultMatureReadersOnly¬¬-- theCreatedTitle is set by Import to give default name for a new title¬¬---------------------¬-- This is window #4¬---------------------¬¬if objValue="Open" then¬  -- Store off the ID of this window¬  -- so we can use it to refer to later after the name has¬  -- changed (or the name is a numeric, e.g. "1963"¬  set cursor to watch¬  put wsGet("Comic Title","0", "ID") into gComicTitleWindowID¬  ¬  -- Restore old window position¬  put OldWindowPosition(4) into windowRect¬  if windowRect = empty then centerWindow "Comic Title"¬  else wsSet gComicTitleWindowID,"0","Rect",windowRect¬  wsSet gComicTitleWindowID,"PublisherPop","Text",getColumn(gPublisherList,1,1,tab) & return & "-" & return & "Other…"¬  if selectedTitle = empty then¬    -- New title¬    put empty into oldName¬    put empty into oldAbbreviation¬    ¬    if theCreatedTitle ≠ empty then¬      -- New title being defaulted to by the import procedure¬      wsSet gComicTitleWindowID,"0","Name", theCreatedTitle¬      put createAbbreviation(theCreatedTitle) into theAbbreviation¬      get "Name_WhiteColor:-8739,-8739,-8739" & return & "i23_Visible:False" & return & "Abbreviation_Text:" & theAbbreviation & return & "Name_Text:" & theCreatedTitle & return & "Name_LockText:True" & return & "Modified_Text:" & return & "i11_Hilite:False" & return & "Save_Disabled:" & (gDefaultPublisher = empty) & return & "PublisherPop_SelectionText:" & gDefaultPublisher & return & "Copyright_Text:" & gDefaultCopyright & return & "i11_Hilite:" & gDefaultMatureReadersOnly & return & "Copyright_Selection:0,1000" & return & "YearsPublished_Text:" & return & "DescriptionModified_Text:" & return & return & "Created_Text:" & return & "ModifiedLabel_Visible:False" & return & "DescriptionModifiedLabel_Visible:False" & return & "CreatedLabel_Visible:False" & return¬      wsSet gComicTitleWindowID,0,"Properties",it¬    else¬      -- Regular new title¬      wsSet gComicTitleWindowID,"0","Name", "New Title"¬      get "Abbreviation_Text:" & oldAbbreviation & return & "Name_Text:" & oldName & return & "PublisherPop_SelectionText:" & return & "Save_Disabled:True" & return & "Modified_Text:" & return & "i11_Hilite:False" & return & "Save_Disabled:" & (gDefaultPublisher = empty) & return & "PublisherPop_SelectionText:" & gDefaultPublisher & return & "Copyright_Text:" & gDefaultCopyright & return & "i11_Hilite:" & gDefaultMatureReadersOnly & return & "YearsPublished_Text:" & return & "DescriptionModified_Text:" & return & "Created_Text:" & return & "ModifiedLabel_Visible:False" & return & "DescriptionModifiedLabel_Visible:False" & return & "CreatedLabel_Visible:False" & return¬      wsSet gComicTitleWindowID,"0","Properties",it¬      wsSet gComicTitleWindowID,"Name","Selection", "0,250"¬    end if¬  else¬    -- Existing title¬    put char 1 to cMaxCardNameLength of selectedTitle into selectedCardName¬    put find(titleList,selectedTitle,"Line","Begin")  into selectedTitleNum¬    if selectedTitleNum > 0 then¬      wsSet gComicTitleWindowID,"0","Name", selectedTitle¬      put fld "Publisher" of cd selectedTitleNum of bg "Title" into thePub¬      put line 1 of thePub into pubName¬      put line 2 of thePub into copyrightLine¬      put line 3 of thePub into descriptionModified¬      put line 4 of thePub into pubDates¬      put line 6 of thePub into createdDate¬      put fld "Title" of cd selectedTitleNum of bg "Title" into oldName¬      put fld "title Abbreviation" of cd selectedTitleNum of bg "Title" into oldAbbreviation¬      get "Abbreviation_Text:" & oldAbbreviation & return & "Name_Text:" & oldName & return & "PublisherPop_SelectionText:" & pubName & return & "Copyright_Text:" & copyrightLine & return & "Modified_Text:" & (fld "Title Date Modified" of cd selectedTitleNum of bg "Title") & return & "i11_Hilite:" & (the hilite of bg btn "Mature Readers Only" of cd selectedTitleNum of bg "Title") & return & "YearsPublished_Text:" & pubDates & return & "DescriptionModified_Text:" & descriptionModified & return & "Created_Text:" & createdDate & return & "ModifiedLabel_Visible:True" & return & "DescriptionModifiedLabel_Visible:True" & return & "CreatedLabel_Visible:True" & return¬      wsSet gComicTitleWindowID,0,"Properties",it¬      wsSet gComicTitleWindowID,"Name","Selection", "0,250"¬    end if¬  end if¬  ¬  set cursor to arrow¬else if objValue="Close" then ¬  -- save the window position¬  put "4" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 4 of gWindowPositions¬  ¬end if¬¬--end windowEvent
  9. Params: i16_Visible¬i10_Disabled
  10. Result: i6_Text¬i9_SelectionText¬i8_Text¬i7_Text¬i13_Text¬i11_Hilite¬i15_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 335,167,415,187
  14. AutoSize: FALSE
  15. Name: Save
  16. DefaultItem: TRUE
  17. AutoClose: TRUE
  18. Balloon: Click here to save any changes you have made to this title.
  19.  
  20. ItemType: PUSH
  21. Rect: 241,167,321,187
  22. Name: Cancel
  23. CancelItem: TRUE
  24. AutoClose: TRUE
  25. Balloon: Click here to cancel any changes you have made to this title.
  26.  
  27. ItemType: TEXT
  28. Rect: 40,16,114,28
  29. TextFont: Geneva
  30. TextSize: 9
  31. Name: NameTitle
  32. WhiteColor: -8739,-8739,-8739
  33. TextStyle: Bold
  34. TextAlign: Right
  35. Text: Title Name: 
  36.  
  37. ItemType: TEXT
  38. Rect: 296,39,386,51
  39. TextFont: Geneva
  40. TextSize: 9
  41. Name: AbbrevTitle
  42. WhiteColor: -8739,-8739,-8739
  43. TextAlign: Right
  44. Text: Title Abbreviation:
  45.  
  46. ItemType: TEXT
  47. Rect: 47,39,114,51
  48. TextFont: Geneva
  49. TextSize: 9
  50. Name: PublisherTitle
  51. WhiteColor: -8739,-8739,-8739
  52. TextStyle: Bold
  53. TextAlign: Right
  54. Text: Publisher: 
  55.  
  56. ItemType: TEXT
  57. Rect: 114,14,415,30
  58. TextFont: Geneva
  59. TextSize: 9
  60. AutoSize: FALSE
  61. Name: Name
  62. LockText: FALSE
  63. Balloon: This is the name of this comic title. Use library format for titles beginning with “A” or “The” (e.g., “Amazing Spider-Man, The” instead of “The Amazing Spider-Man”).
  64. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬send HandleTitleEntry to cd 1 of bg "Title"¬--end closeField¬
  65.  
  66. ItemType: TEXT
  67. Rect: 389,39,419,52
  68. TextFont: Geneva
  69. TextSize: 9
  70. AutoSize: FALSE
  71. Name: Abbreviation
  72. WhiteColor: -8739,-8739,-8739
  73. Text: STE
  74. Balloon: This is a short abbreviation used to refer to this title.
  75. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬--end closeField¬¬
  76.  
  77. ItemType: TEXT
  78. Rect: 212,46,385,62
  79. TextFont: Geneva
  80. TextSize: 9
  81. Visible: FALSE
  82. Name: OtherPublisher
  83. LockText: FALSE
  84. KeyFilter: obsOnlyAny
  85. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬Global gComicTitleWindowID¬¬if wsGet(gComicTitleWindowID,"Copyright","Text") = empty then¬  wsSet gComicTitleWindowID,"Copyright","Text",objValue¬end if¬¬--end closeField
  86.  
  87. ItemType: POP
  88. Rect: 114,39,242,52
  89. TextFont: Geneva
  90. TextSize: 9
  91. AutoSize: FALSE
  92. Name: PublisherPop
  93. Text: Aardvark-Vanaheim¬AC¬Adventure¬Aircel¬Antarctic¬Atlas¬Archie¬Boneyard¬Charlton¬COMICO¬Dark Horse¬DC¬Defiant¬Dell¬Disney¬Eagle¬E.C.¬Eclipse¬Epic¬Eros¬Eternity¬Fantagraphics¬First¬Fleetway Quality¬Friendly¬Gold Key¬Hero¬Image¬Impact¬Innovation¬Kitchen Sink¬London Night¬Malibu¬Marvel¬Marvel UK¬Milestone¬Mirage¬MU¬NEC¬Night Wynd¬Now¬Pacific¬Piranha¬Rebel¬Red Circle¬Revolutionary¬Schism¬Sky¬Slave Labor¬Spire¬Star¬Topps¬Valiant¬Vertigo¬Viz¬Warp¬Whitman¬-¬Other…
  94. TitleItem: 5
  95. Balloon: Choose the name of this title’s publisher here. Use “Other…” if the publisher is not listed.
  96. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global gComicTitleWindowID, serialNum, gPublisherList¬¬put wsGet(gComicTitleWindowID,"PublisherPop","TextOfSelection") into newPublisher¬put wsGet(gComicTitleWindowID,"Name","Text") into newName¬put wsGet(gComicTitleWindowID,"Abbreviation","Text") into theAbbreviation¬¬if newPublisher = "Other…" then¬  Get Windowscript("Other Publisher")¬  put line 2 of it into newPublisher¬  if newPublisher <> empty then ¬    wsSet gComicTitleWindowID,"PublisherPop","SelectionText",newPublisher¬    wsSet gComicTitleWindowID,"Copyright","Text",newPublisher¬    wsSet gComicTitleWindowID,"Copyright","Selection","0,3200"¬  end if¬else ¬  put find(getColumn(gPublisherList,1,1,tab),newPublisher,"Line","Exact") into whereFound¬  if whereFound > 0 then¬    put line whereFound of GetColumn(gPublisherList,2,2,tab) into theCopyright¬    wsSet gComicTitleWindowID,"Copyright","Text",theCopyright¬  end if¬  wsSet gComicTitleWindowID,"OtherPublisher","Visible", "false"¬  wsSet gComicTitleWindowID,"OtherPublisher","TEXT", empty¬  wsSet gComicTitleWindowID,"Copyright","Selection","0,3200"¬end if¬¬put (newPublisher = empty) or (newName = empty) or (theAbbreviation = empty) or (serialNum = empty) into saveDisabled¬wsSet gComicTitleWindowID,"Save","Disabled", saveDisabled¬--end mouseUp¬¬
  97.  
  98. ItemType: PUSH
  99. Rect: 12,167,92,187
  100. Name: Remove
  101. AutoClose: TRUE
  102. Balloon: Click here to remove this title and all its associated information from the ComicBase.
  103.  
  104. ItemType: CHK
  105. Rect: 299,112,415,124
  106. TextFont: Geneva
  107. TextSize: 9
  108. WhiteColor: -8739,-8739,-8739
  109. Name: Mature readers only
  110. Balloon: Check this item if the title should only be seen by mature readers.
  111. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global gComicTitleWindowID, serialNum¬¬put wsGet(gComicTitleWindowID,"PublisherPop","TextOfSelection") into newPublisher¬put wsGet(gComicTitleWindowID,"Name","Text") into newName¬put wsGet(gComicTitleWindowID,"Abbreviation","Text") into theAbbreviation¬¬put (newPublisher = empty) or (newName = empty) or (theAbbreviation = empty) or (serialNum = empty) into saveDisabled¬wsSet gComicTitleWindowID,"Save","Disabled", saveDisabled¬--end mouseUp
  112.  
  113. ItemType: TEXT
  114. Rect: 45,65,114,77
  115. TextFont: Geneva
  116. TextSize: 9
  117. Name: Copyright Title
  118. WhiteColor: -8739,-8739,-8739
  119. TextStyle: Bold
  120. TextAlign: Right
  121. Text: Copyright: 
  122.  
  123. ItemType: TEXT
  124. Rect: 114,62,415,102
  125. TextFont: Geneva
  126. TextSize: 9
  127. Name: Copyright
  128. LockText: FALSE
  129. KeyFilter: obsOnlyAny
  130. Balloon: Enter the appropriate copyright information for the picture shown. This information can be found on the bottom of the first story page on most comics.
  131. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬Global gComicTitleWindowID, serialNum¬¬put wsGet(gComicTitleWindowID,"PublisherPop","TextOfSelection") into newPublisher¬put wsGet(gComicTitleWindowID,"Name","Text") into newName¬put wsGet(gComicTitleWindowID,"Abbreviation","Text") into theAbbreviation¬¬put (newPublisher = empty) or (newName = empty) or (theAbbreviation = empty) or (serialNum = empty) into saveDisabled¬wsSet gComicTitleWindowID,"Save","Disabled", saveDisabled¬--end closeField
  132.  
  133. ItemType: TEXT
  134. Rect: 12,112,114,124
  135. TextFont: Geneva
  136. TextSize: 9
  137. Name: YearsPublishedTitle
  138. WhiteColor: -8739,-8739,-8739
  139. TextStyle: Bold
  140. TextAlign: Right
  141. Text: Years Published: 
  142.  
  143. ItemType: TEXT
  144. Rect: 114,110,291,126
  145. TextFont: Geneva
  146. TextSize: 9
  147. AutoSize: FALSE
  148. Name: YearsPublished
  149. LockText: FALSE
  150. KeyFilter: obsOnlyAny
  151. Balloon: These are the years during which this title was published. Enter information i the form "1955-1956" or "1977-1979, 1985-Present".
  152. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬global gComicTitleWindowID¬¬put objValue into dateString¬¬put wsGet(gComicTitleWindowID,"PublisherPop","TextOfSelection") into newPublisher¬put wsGet(gComicTitleWindowID,"Name","Text") into newName¬put wsGet(gComicTitleWindowID,"Abbreviation","Text") into theAbbreviation¬¬put DatesToMask(dateString) into dateMask¬if word 1 of dateMask contains "Error" then¬  Get Windowscript("Stop Alert", "Those dates don’t make sense. Please use the form “1979-1985” or “1963-1974, 1985-Present”")¬  wsSet gComicTitleWindowID,"YearsPublished","Text",empty¬end if¬¬put (newPublisher = empty) or (newName = empty) or (theAbbreviation = empty) or (serialNum = empty) into saveDisabled¬wsSet gComicTitleWindowID,"Save","Disabled", saveDisabled¬--end closeField¬
  153.  
  154. ItemType: BOX
  155. Rect: 13,134,414,135
  156. BlackColor: -26215,-26215,-26215
  157.  
  158. ItemType: TEXT
  159. Rect: 10,137,53,149
  160. TextFont: Geneva
  161. TextSize: 9
  162. Name: CreatedLabel
  163. WhiteColor: -8739,-8739,-8739
  164. TextAlign: Right
  165. Text: Created:
  166.  
  167. ItemType: TEXT
  168. Rect: 56,137,108,148
  169. TextFont: Geneva
  170. TextSize: 9
  171. AutoSize: FALSE
  172. Name: Created
  173. WhiteColor: -8739,-8739,-8739
  174. Text: 3/8/95
  175. Balloon: This is the date that the title was last changed.
  176.  
  177. ItemType: TEXT
  178. Rect: 134,137,180,149
  179. TextFont: Geneva
  180. TextSize: 9
  181. Name: ModifiedLabel
  182. WhiteColor: -8739,-8739,-8739
  183. TextAlign: Right
  184. Text: Modified:
  185.  
  186. ItemType: TEXT
  187. Rect: 182,137,234,148
  188. TextFont: Geneva
  189. TextSize: 9
  190. AutoSize: FALSE
  191. Name: Modified
  192. WhiteColor: -8739,-8739,-8739
  193. Text: 11/12/97
  194. Balloon: This is the date that the title was last changed.
  195.  
  196. ItemType: TEXT
  197. Rect: 257,137,357,149
  198. TextFont: Geneva
  199. TextSize: 9
  200. Name: DescriptionModifiedLabel
  201. WhiteColor: -8739,-8739,-8739
  202. TextAlign: Right
  203. Text: Description Modified:
  204.  
  205. ItemType: TEXT
  206. Rect: 360,137,412,149
  207. TextFont: Geneva
  208. TextSize: 9
  209. AutoSize: FALSE
  210. Name: DescriptionModified
  211. WhiteColor: -8739,-8739,-8739
  212. Text: 3/11/95
  213. Balloon: This is the date that the title was last changed.
  214.  
  215. ItemType: LINE
  216. Rect: 13,135,414,136
  217. Pen: White